parse arg node;options results;nodeid="DREAMREXX"node;address value nodeid;signal on ioerr;signal on error;signal on syntax;tr=transmit;SYSTEMINFO 8;mama=result;VER='v1.35';if ~exists("ENV:DreamUtils") then call FuckingEND;call open(DU,"ENV:DreamUtils","R");do;DreUti=STRIP(ReadLn(DU));end;call Close(DU);if ~exists(''DreUti'DDWall.Config') then call mAKEiT;CfG:;call open(CFG,''DreUti'DDWall.Config','R');do;Color1=STRIP(ReadLn(CFG));Color2=STRIP(ReadLn(CFG));Color3=STRIP(ReadLn(CFG));Color4=STRIP(ReadLn(CFG));Color5=STRIP(ReadLn(CFG));Lines=STRIP(ReadLn(CFG));LogAll=STRIP(ReadLn(CFG));end;call Close(CFG);if ~exists("DayDream:LogFiles/DDWall.LST") then call mAKEiTaLSO;StART:;if mama=ANSI then;do;tr " ";tr Color1'..............................................................................';tr Color2' «»«»«»«»«»«» ddWall 'VER' BY /)arkElf of sUPREME (c) 1995 «»«»«»«»«»«» 'Color3;newline;end;if mama=ASCII then;do;tr " ";tr ' ____________________________________________________________________________ ';tr '| «»«»«»«»«»«» ddWall 'VER' BY /)arkElf of sUPREME (c) 1995 «»«»«»«»«»«» |';tr ' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ';end;x=0;call open file,"DayDream:LogFiles/DDWall.LST",'R';do until x=Lines;data.x=readln(file);STRIP(tr center(""data.x"",78));x=x+1;end;call close file;if mama=ANSI then;do;tr Color1'..............................................................................';tr Color2' «»«»«»«» TYPE "D" IF YOU WANT TO DOWNLOAD ALL AVAILABLE SLOGANS «»«»«»«» ';end;if mama=ASCII then;do;tr ' ____________________________________________________________________________ ';tr '| «»«»«»«» TYPE "D" IF YOU WANT TO DOWNLOAD ALL AVAILABLE SLOGANS «»«»«»«» |';tr ' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ';end;if mama=ANSI then;do;tr Color4'Please enter your own sick slogan or just simply press return to continue...';prompt 76 normal ''Color5':>';slogo=result;end;if mama=ASCII then;do;tr 'Please enter your own sick slogan or just simply press return to continue...';prompt 76 normal ':>';slogo=result;end;select;when slogo='RESULT'|slogo=' ' then call FuckingEND;when slogo='D'|slogo='d' then call DownLoad;otherwise call CONTINUE;end;CONTINUE:;y=1;call open file,"DayDream:LogFiles/DDWall.LST",'W';do until y=x;call writeln file, data.y;y=y+1;end;call writeln file,slogo;call close file;if LogAll=N then call FuckingEND;call open file,"DayDream:LogFiles/DDWall.ALL",'A';call writeln file,slogo;call close file;call FuckingEND;DownLoad:;if LogAll=N then download "DayDream:LogFiles/DDWall.LST";if LogAll=Y then download "DayDream:LogFiles/DDWall.ALL";call FuckingEND;IOERR:;SYNTAX:;ERROR:;FuckingEND:;shutdown;exit;mAKEiT:;address command 'echo > 'DreUti'DDWall.Config';call open file,''DreUti'DDWall.Config','W';call writeln file,"";call writeln file,"";call writeln file,"";call writeln file,"";call writeln file,"";call writeln file,"15";call writeln file,"Y";call writeln file,";I line: Color1";call writeln file,";II line: Color2";call writeln file,";III line: Color3";call writeln file,";IV line: Color4";call writeln file,";V line: Color5";call writeln file,";VI line: Number of lines you want to your personal Wall";call writeln file,";VII line: Y=Log All Slogans , N=Log only Last slogans";call close file;call CfG;mAKEiTaLSO:;address command "echo > DayDream:LogFiles/DDWall.LST";if ~exists("DayDream:LogFiles/DDWall.ALL") then call mAKEiTtOO;call StART;mAKEiTtOO:;if LogAll=N then call StART;address command "echo > DayDream:LogFiles/DDWall.ALL";call StART
